home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs19.d81
/
psconver.sda
/
PS B TO A V1.0
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2009-10-10
|
603b
|
20 lines
100 REM PRINT SHOP B TO A CONVERTER V1.0
110 REM BY BRIAN HEYBOER 5/21/87
120 INPUT"SIDE B FILE TO BE CONVERTED";F1$
130 INPUT"SIDE A CONVERTED FILE";F2$
140 OPEN8,8,8,F1$+",P,R":OPEN9,8,9,F2$+",P,W":GET#8,A$,A$
150 N2$=CHR$(0)+CHR$(0):B$=N2$+N2$+N2$+N2$+N2$+CHR$(0)
160 PRINT#9,CHR$(0);CHR$(80);:FORI=1TO4:PRINT#9,B$;:NEXT
170 FOR I=1TO45:O$="":FOR J=1TO6
180 GET#8,A$:IFA$<>""THEN 210
190 IF J=6 THEN C$=CHR$(0):GOTO 250
200 C$=N2$:GOTO 250
210 A1%=ASC(A$):A2%=A1%/16
220 C%=(A2%AND1)*3+(A2%AND2)*6+(A2%AND4)*12+(A2%AND8)*24:C$=CHR$(C%)
230 O$=O$+C$:IF J=6 THEN 260
240 C%=(A1%AND1)*3+(A1%AND2)*6+(A1%AND4)*12+(A1%AND8)*24:C$=CHR$(C%)
250 O$=O$+C$
260 NEXT:PRINT#9,O$;:PRINT"*";:NEXT
270 FOR I=1 TO 3:PRINT#9,B$;
280 CLOSE8:CLOSE9